home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1998 February / Amiga-CD 1998 #2.iso / amiga-internet-seiten / magazin / a04-97 / listing1 < prev    next >
Text File  |  1997-03-22  |  771b  |  27 lines
  1. ; Foreach-Demo, ©1996 Marcel Bennicke
  2.  
  3. (welcome "Dieses Skript demonstriert die foreach-Schleife")
  4. (set #zähler 0)
  5.  
  6. (foreach "Bilder" "#?.iff"
  7.   (
  8.     ; den Teil des Names ohne .iff ermitteln und .ILBM anhängen
  9.     (set #neuer-name (cat
  10.                        (substr @each-name 0 (- (strlen @each-name) 4))
  11.                        ".ILBM"))
  12.  
  13.     (if (rename (tackon "Bilder" @each-name)
  14.                 (tackon "Bilder" #neuer-name)
  15.           (prompt "Umbenennen der Datei " @each-name
  16.                   " in " #neuer-name "?")
  17.           (help "")
  18.           (confirm)
  19.         )
  20.       (set #zähler (+ #zähler 1))  ; Zähler erhöhen, wenn rename erfolgreich
  21.     )
  22.   )
  23. ) ; Ende foreach
  24.  
  25. (exit "Operation abgeschlossen.\n\n"
  26.       #zähler " Dateien wurden umbenannt" (quiet))
  27.